All jobs
pal <- colorNumeric("plasma", reverse = TRUE, domain = cvl_lodes$alljobs)
leaflet(cvl_lodes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvl_lodes,
fillColor = ~pal(alljobs),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(
weight = 1, fillOpacity = 0.8, bringToFront = T
),
popup = paste0("GEOID: ", cvl_lodes$w_blkgroup, "<br>",
"Number of jobs: ", cvl_lodes$alljobs, 2)) %>%
addLegend("bottomright", pal = pal, values = cvl_lodes$alljobs,
title = "Number of jobs", opacity = 0.7)
Wages
Proportion of low-wage jobs (earnings $1250/month or less) in each SU
pal <- colorNumeric("BuPu", domain = cvl_lodes$lowwage_p)
leaflet(cvl_lodes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvl_lodes,
fillColor = ~pal(lowwage_p),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
highlight = highlightOptions(
weight = 1, fillOpacity = 0.8, bringToFront = T
),
popup = paste0("GEOID: ", cvl_lodes$w_blkgroup, "<br>",
"Prop. low-wage jobs: ", round(cvl_lodes$lowwage_p, 2))) %>%
addLegend("bottomright", pal = pal, values = cvl_lodes$lowwage_p,
title = "Proportion of <br> low-wage jobs", opacity = 0.7)
Proportion of high-wage jobs (earnings greater than $3333/month) in each SU
pal <- colorNumeric("BuPu", domain = cvl_lodes$higwage_p)
leaflet(cvl_lodes) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(data = cvl_lodes,
fillColor = ~pal(higwage_p),
weight = 1,
opacity = 1,
color = "white",
fillOpacity = 0.6,
smoothFactor = 0.3,
highlight = highlightOptions(
weight = 1, fillOpacity = 0.8, bringToFront = T
),
popup = paste0("GEOID: ", cvl_lodes$w_blkgroup, "<br>",
"Prop. high-wage jobs: ", round(cvl_lodes$higwage_p, 2))) %>%
addLegend("bottomright", pal = pal, values = cvl_lodes$higwage_p,
title = "Proportion of <br> high-wage jobs", opacity = 0.7)